home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / gui / muibuilderv20.lha / MUIBuilder / Install / Install_MB < prev    next >
Encoding:
Text File  |  1994-10-22  |  9.8 KB  |  408 lines
  1. (complete 0)
  2.  
  3. ;===========================================================================
  4. ; English strings
  5.  
  6. (if (= @language "english")
  7. (
  8. (set locale 0)
  9.  
  10. (set #bad-MUI         (cat "You need at least MUI2.2 to use MUIBuilder 2.0." ))
  11. (set #dir-choice     (cat "Select the directory where the MUIBuilder Directory will be created." ))
  12. (set #copy         (cat "Copying MUIBuilder"))
  13. (set #doc-copy         (cat "Copying Documentation"))
  14. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  15. (set #olddocdvi        (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  16. (set #copyENV         (cat "Copying to ENV:"))
  17. (set #copyENVARC     (cat "Copying to ENVARC:"))
  18. (set #installcatalog     (cat "\n\nDo you want to install the english catalog ?"))
  19. (set #copycatalog     (cat "Installation of the english catalogue."))
  20. (set #catalogname     (cat "/Catalogs/English/MUIBuilder.catalog"))
  21. (set #destname         (cat "Locale:Catalogs/English"))
  22. (set #genchoice        (cat "Chose the generators you need"))
  23. (set #c            (cat "C language"))
  24. (set #E            (cat "E language"))
  25. (set #Oberon        (cat "Oberon language"))
  26. (set #Modula        (cat "Modula2 language"))
  27. (set #Assembly        (cat "Assembly language"))
  28. (set #libcopy        (cat "Copying ss.library to LIBS:"))
  29.  
  30. ))
  31.  
  32. ;===========================================================================
  33. ; French strings
  34.  
  35. (if (= @language "français")
  36. (
  37. (set locale 1)
  38.  
  39. (set #bad-MUI         (cat "Vous avez besoin au moins de MUI2.2 pour utiliser MUIBuilder 2.0." ))
  40. (set #dir-choice     (cat "Sélectionnez le répertoire dans lequel vous voulez installer le répertoire de MUIBuider." ))
  41. (set #copy         (cat "Copie de MUIBuilder"))
  42. (set #doc-copy         (cat "Copie de la Documentation"))
  43. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_Français.guide"))
  44. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_Français.dvi"))
  45. (set #copyENV         (cat "Copie des variables d'environnement dans ENV:"))
  46. (set #copyENVARC     (cat "Copie des variables d'environnement dans ENVARC:"))
  47. (set #installcatalog     (cat "\n\nVoulez vous installer le catalogue Français ?"))
  48. (set #copycatalog     (cat "Installation du catalogue Français."))
  49. (set #catalogname     (cat "/Catalogs/Français/MUIBuilder.catalog"))
  50. (set #destname         (cat "Locale:Catalogs/Français"))
  51. (set #genchoice        (cat "Choisissez les modules externes dont vous avez besoin"))
  52. (set #c            (cat "Langage C"))
  53. (set #E            (cat "Langage E"))
  54. (set #Oberon        (cat "Langage Oberon"))
  55. (set #Modula        (cat "Langage Modula2"))
  56. (set #Assembly        (cat "Langage Assembleur"))
  57. (set #libcopy        (cat "Copie de la ss.library vers LIBS:"))
  58.  
  59. ))
  60.  
  61. ;===========================================================================
  62. ; German strings
  63.  
  64. (if (= @language "deutsch")
  65. (
  66. (set locale 0)
  67.  
  68. (set #bad-MUI         (cat "Sie benötigen mindestens MUI2.2, um MUIBuilder 2.0 zu nutzen."))
  69. (set #dir-choice     (cat "Wählen Sie das Verzeichnis aus, in welches das Verzeichnis von MUIBuilderV1.1 installiert wird."))
  70. (set #copy         (cat "Kopiere MUIBuilder"))
  71. (set #doc-copy         (cat "Kopiere Dokumentation"))
  72. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_English.guide"))
  73. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_English.dvi"))
  74. (set #copyENV         (cat "Kopiere nach ENV:"))
  75. (set #copyENVARC     (cat "Kopiere nach ENVARC:"))
  76. (set #installcatalog     (cat "\n\nSoll der deutsche Catalog installiert werden?"))
  77. (set #copycatalog     (cat "Installiere deutschen Catalog." ))
  78. (set #catalogname     (cat "/Catalogs/Deutsch/MUIBuilder.catalog"))
  79. (set #destname         (cat "Locale:Catalogs/Deutsch"))
  80. (set #genchoice        (cat "Wählen Sie die Modulen aus, die Sie wollen"))
  81. (set #c            (cat "C Sprache"))
  82. (set #E            (cat "E Sprache"))
  83. (set #Oberon        (cat "Oberon Sprache"))
  84. (set #Modula        (cat "Modula2 Sprache"))
  85. (set #Assembly        (cat "Assembly Sprache"))
  86. (set #libcopy        (cat "Kopiere ss.library nach LIBS:"))
  87.  
  88. ))
  89.  
  90. ;===========================================================================
  91. ; Czech strings
  92.  
  93. (if (= @language "czech")
  94. (
  95. (set locale 0)
  96.  
  97. (set #bad-MUI         (cat "MUIBuilder 2.0 vyùaduje MUI2.2 !" ))
  98. (set #dir-choice     (cat "Zvolte adresáê, ve kterém chcete vytvoêit adresáê pro MUIBuilder." ))
  99. (set #copy         (cat "Kopíruji MUIBuilder"))
  100. (set #doc-copy         (cat "Kopíruji Dokumentaci"))
  101. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  102. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  103. (set #copyENV         (cat "Kopíruji do ENV:"))
  104. (set #copyENVARC     (cat "Kopíruji do ENVARC:"))
  105. (set #installcatalog     (cat "\n\nChcete nainstalovat çeský katalog?"))
  106. (set #copycatalog     (cat "Instaluji çeský katalog."))
  107. (set #catalogname     (cat "/Catalogs/Czech/MUIBuilder.catalog"))
  108. (set #destname         (cat "Locale:Catalogs/Czech"))
  109. (set #genchoice        (cat "Zvolte generátory, které si pêejete nainstalovat"))
  110. (set #c            (cat "Jazyk C"))
  111. (set #E            (cat "Jazyk E"))
  112. (set #Oberon        (cat "Jazik Oberon"))
  113. (set #Modula        (cat "Jazik Modula2"))
  114. (set #Assembly        (cat "Assembler"))
  115. (set #libcopy        (cat "Kopíruji ss.library do LIBS:"))
  116.  
  117. ))
  118.  
  119. ;=============================================================================
  120. ; Español strings
  121.  
  122. (if (= @language "español")
  123. (
  124. (set locale 0)
  125.  
  126. (set #bad-MUI         (cat "Necesitas al menos MUI2.2 para usar MUIBuilder 2.0." ))
  127. (set #dir-choice     (cat "Elige el Directorio donde quieres instalar MUIBuilder." ))
  128. (set #copy         (cat "Copiando MUIBuilder"))
  129. (set #doc-copy         (cat "Copiando Documentación"))
  130. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  131. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  132. (set #copyENV         (cat "Copiando a ENV:"))
  133. (set #copyENVARC     (cat "Copiando a ENVARC:"))
  134. (set #installcatalog     (cat "\n\nQuieres instalar el catálogo español ?"))
  135. (set #copycatalog     (cat "Instalación del catálogo español."))
  136. (set #catalogname     (cat "/Catalogs/Español/MUIBuilder.catalog"))
  137. (set #destname         (cat "Locale:Catalogs/Español"))
  138. (set #genchoice        (cat "Elige los módulos externos que necesites"))
  139. (set #c            (cat "Lenguaje C"))
  140. (set #E            (cat "Lenguaje E"))
  141. (set #Oberon        (cat "Lenguaje Oberon"))
  142. (set #Modula        (cat "Lenguaje Modula2"))
  143. (set #Assembly        (cat "Lenguaje Ensamblador"))
  144. (set #libcopy        (cat "Copiando ss.library a LIBS:"))
  145.  
  146. ))
  147.  
  148. ;=============================================================================
  149. ;=============================================================================
  150. ; Installation procedure
  151.  
  152. ( set MBdir "Ram:" )
  153.  
  154. ;========================================================================
  155. ;
  156. ; Scanning MUI version
  157. ;
  158.  
  159. ( set versionnumber (getversion "LIBS:muimaster.library" ) )
  160. ( set version (/ versionnumber 65536))
  161.  
  162. ( if (< version 8)
  163.     (
  164.         (if (= locale 0)
  165.                 ( abort #bad-MUI )
  166.         )
  167.     )
  168. )
  169.  
  170. ;========================================================================
  171. ;
  172. ; Select the MUIBuilder directory
  173. ;
  174.  
  175. (set MBdir
  176.     ( askdir
  177.         ( prompt #dir-choice )
  178.         (help "")
  179.         (default "Sys:")
  180.         (newpath)
  181.     )
  182. )
  183.  
  184. ;========================================================================
  185. ;
  186. ; Copying MUIBuilder
  187. ;
  188.  
  189. (complete 10)
  190.  
  191. (set @default-dest MBdir )
  192. (set MBdir ( tackon MBdir "MUIBuilder" ) )
  193.  
  194. (copyfiles
  195.     (prompt #copy)
  196.     (source "/MB")
  197.     (help   @copyfiles-help)
  198.     (infos)
  199.     (dest MBdir)
  200.     (choices "MUIBuilder"
  201.          "BuilderSave"
  202.          "Tools"
  203.          "Catalogs"
  204.          "Developer"
  205.     )
  206.     (confirm)
  207. )
  208.  
  209. (copyfiles
  210.     (source "/MB.info")
  211.     (help    @copyfiles-help)
  212.     (dest     @default-dest)
  213.     (newname (cat MBdir ".info"))
  214. )
  215.  
  216. (complete 20)
  217.  
  218. ;========================================================================
  219. ;
  220. ; Copying muibuilder.library
  221. ;
  222.  
  223.  
  224. (copylib
  225.     (source    "/Libs/muibuilder.library")
  226.     (dest "LIBS:")
  227.     (prompt #libcopy)
  228.     (help @copylib-help)
  229.     (confirm)
  230. )
  231.  
  232. (complete 30)
  233.  
  234. ;========================================================================
  235. ;
  236. ; Copying Modules
  237.  
  238. (set modules
  239.     (askoptions
  240.         (prompt     #genchoice)
  241.         (help     @askoptions-help)
  242.         (choices #c
  243.              #E
  244.              #Oberon
  245.         )
  246.         (default 7)
  247.     )
  248. )
  249.  
  250. ;======================
  251. ; Copying GenCodeC
  252. ;
  253. (if (IN modules 0)
  254.     (
  255.         (copyfiles
  256.             (source "/MB/Modules")
  257.             (dest (tackon MBdir "Modules"))
  258.             (choices "GenCodeC" "C-Header" "H-Header")
  259.         )
  260.         (copyfiles
  261.             (source "/MB")
  262.             (dest MBdir)
  263.             (choices "C")
  264.             (infos)
  265.         )
  266.     )
  267. )    
  268.  
  269. ;======================
  270. ; Copying GenCodeE
  271. ;
  272. (if (IN modules 1)
  273.     (
  274.         (copyfiles
  275.             (source "/MB/Modules")
  276.             (dest (tackon MBdir "Modules"))
  277.             (choices "GenCodeE21b" "GenCodeE30b")
  278.         )
  279.         (copyfiles
  280.             (infos)
  281.             (source "/MB")
  282.             (dest MBdir)
  283.             (choices "E")
  284.         )
  285.     )
  286. )
  287.  
  288. ;======================
  289. ; Copying GenCodeOberon
  290. ;
  291. (if (IN modules 2)
  292.     (
  293.         (copyfiles
  294.             (source "/MB/Modules")
  295.             (dest (tackon MBdir "Modules"))
  296.             (choices "GenCodeOberon")
  297.         )
  298.         (copyfiles
  299.             (infos)
  300.             (source "/MB")
  301.             (dest MBdir)
  302.             (choices "Oberon")
  303.         )
  304.     )
  305. )
  306.  
  307. ;======================
  308. ; Copying GenCodeModula
  309. ;
  310. ;(if (IN modules 3)
  311. ;    (
  312. ;        (copyfiles
  313. ;            (source "/MB/Modules")
  314. ;            (dest (tackon MBdir "Modules"))
  315. ;            (choices "GenCodeModula")
  316. ;        )
  317. ;        (copyfiles
  318. ;            (infos)
  319. ;            (source "/MB/Modula")
  320. ;            (dest (tackon MBdir "Modules"))
  321. ;        )
  322. ;    )
  323. ;)
  324.  
  325. (complete 60)
  326.  
  327. ;========================================================================
  328. ;
  329. ; Copying documentation
  330. ;
  331.  
  332. ( set MBdoc ( tackon MBdir "Documentations" ) )
  333.  
  334. (copyfiles
  335.     (prompt #doc-copy)
  336.     (source #olddoc)
  337.     (newname "MUIBuilder.guide")
  338.     (help @copyfiles-help)
  339.         (infos)
  340.     (confirm)
  341.         (dest MBdoc )
  342. )
  343.  
  344. (copyfiles
  345.     (source "/MB/Documentations.info")
  346.     (newname (cat MBdoc ".info"))
  347.     (dest @default-dest)
  348. )
  349.  
  350. (copyfiles
  351.     (prompt #doc-copy)
  352.     (source #olddocdvi)
  353.     (newname "MUIBuilder.dvi")
  354.     (help @copyfiles-help)
  355.         (infos)
  356.     (confirm)
  357.         (dest MBdoc )
  358. )
  359.  
  360. ;========================================================================
  361. ;
  362. ; copying MUIBuilder.catalog files
  363. ;
  364.  
  365. (complete 70)
  366.  
  367. (if (> locale 0)
  368.     (if     (askbool
  369.         (prompt #installcatalog)
  370.         (help   "")
  371.         )
  372.         (copylib
  373.             (prompt #copycatalog)
  374.             (source #catalogname)
  375.             (dest   #destname)
  376.             (help   @copylib-help)
  377.             (confirm)
  378.         )
  379.     )
  380. )
  381.  
  382. ;=========================================================================
  383. ;
  384. ; Copying environment variables
  385. ;
  386.  
  387. (complete 80)
  388.  
  389. (copyfiles
  390.     (prompt #copyENV)
  391.     (source "/Env")
  392.     (dest   "ENV:")
  393.     (all)
  394. )
  395.  
  396. (copyfiles
  397.     (prompt #copyENVARC)
  398.     (source "/Env")
  399.     (dest   "ENVARC:")
  400.     (help   @copyfiles-help)
  401.     (confirm)
  402.     (all)
  403. )
  404.  
  405. (complete 99)
  406.  
  407. (exit)
  408.